extern int balanc_(integer *nm, integer *n, doublereal *a, integer *low, integer *igh, doublereal *scale);
